home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Credits
- BackColor = &H00808080&
- Caption = "Credits"
- ClientHeight = 3000
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 4680
- Icon = "Credits.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 3000
- ScaleWidth = 4680
- Begin VB.Image Image2
- Height = 600
- Left = 4095
- Picture = "Credits.frx":030A
- Top = 90
- Width = 450
- End
- Begin VB.Image Image1
- Height = 600
- Left = 135
- Picture = "Credits.frx":0704
- Top = 90
- Width = 450
- End
- Begin VB.Label Label2
- Alignment = 2 'Center
- BackStyle = 0 'Transparent
- Caption = "Label2"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H0080FFFF&
- Height = 2235
- Left = 45
- TabIndex = 1
- Top = 720
- Width = 4560
- End
- Begin VB.Label Label1
- Alignment = 2 'Center
- BackColor = &H00000040&
- BackStyle = 0 'Transparent
- Caption = "Calendar Project"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 13.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FFFF80&
- Height = 420
- Left = 1035
- TabIndex = 0
- Top = 90
- Width = 2580
- WordWrap = -1 'True
- End
- Attribute VB_Name = "Credits"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Private Sub Form_Load()
- Label2.Caption = "Programmed by Swertvaegher Stephan earlier this year" & vbCr & vbCr
- Label2.Caption = Label2.Caption & "Feel free to use this anywhere, just remember to give me the credits for it..." & vbCr & vbCr
- Label2.Caption = Label2.Caption & "QA can always at my e-mail adress:" & vbCr & vbCr
- Label2.Caption = Label2.Caption & "stephan.swertvaegher@planetinternet.be"
- Credits.Left = Calendar.Left + Calendar.Width
- Credits.Top = Calendar.Top
- End Sub
- Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
- End Sub
-